object formPathDialog: TformPathDialog Left = 294 Top = 103 BorderStyle = bsDialog BorderWidth = 5 Caption = 'Wrong path' ClientHeight = 327 ClientWidth = 462 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object panelTop: TPanel Left = 0 Top = 0 Width = 462 Height = 49 Align = alTop Alignment = taLeftJustify BevelOuter = bvNone BorderWidth = 5 ParentColor = True TabOrder = 0 object labelInformation: TLabel Left = 5 Top = 5 Width = 452 Height = 39 Align = alClient Caption = 'The registry contains a link to a file that contains an invalid ' + 'path. It is recommended to either fix the path or remove the lin' + 'k.' WordWrap = True end end object panelButtons: TPanel Left = 0 Top = 294 Width = 462 Height = 33 Align = alBottom BevelOuter = bvNone ParentColor = True TabOrder = 1 DesignSize = ( 462 33) object buttonIgnore: TBitBtn Left = 261 Top = 8 Width = 91 Height = 25 Hint = 'By choosing ignore, the registry won'#39't be changed and still poin' + 't to a directory without the required help file.' Anchors = [akTop, akRight] ParentShowHint = False ShowHint = True TabOrder = 1 Kind = bkIgnore end object buttonOK: TBitBtn Left = 365 Top = 8 Width = 91 Height = 25 Hint = 'If you have changed to a valid path, you can accept that directo' + 'ry with this button.' Anchors = [akTop, akRight] Enabled = False ParentShowHint = False ShowHint = True TabOrder = 0 Kind = bkOK end object buttonDelete: TBitBtn Left = 157 Top = 8 Width = 91 Height = 25 Hint = 'By choosing delete, you can delete this entry from your registry' + '. Please don'#39't do this if you'#39're not sure!' Anchors = [akTop, akRight] Caption = '&Delete' ModalResult = 3 ParentShowHint = False ShowHint = True TabOrder = 2 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888888888888808888888888088800088888888888880000888888 8088888000888888088888880008888008888888800088008888888888000008 8888888888800088888888888800000888888888800088008888888000088880 0888880000888888008888000888888888088888888888888888} end object buttonSearch: TBitBtn Left = 8 Top = 8 Width = 91 Height = 25 Hint = 'Search your hard disk for this file, beginning with the "New Pat' + 'h" directory.' Caption = '&Search' Enabled = False ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = buttonSearchClick end end object panelMain: TPanel Left = 0 Top = 49 Width = 462 Height = 245 Align = alClient BevelOuter = bvLowered BorderWidth = 4 ParentColor = True TabOrder = 2 DesignSize = ( 462 245) object labelSearchResults: TLabel Left = 5 Top = 212 Width = 452 Height = 28 Align = alBottom AutoSize = False Caption = 'No search started.' WordWrap = True end object labelResults: TLabel Left = 2 Top = 132 Width = 82 Height = 77 Alignment = taRightJustify AutoSize = False Caption = 'Search results:' end object labelNewPath: TLabel Left = 2 Top = 108 Width = 82 Height = 21 Alignment = taRightJustify AutoSize = False Caption = 'New path:' end object labelPath: TLabel Left = 2 Top = 64 Width = 82 Height = 41 Alignment = taRightJustify AutoSize = False Caption = 'Path:' end object labelFile: TLabel Left = 2 Top = 48 Width = 82 Height = 17 Alignment = taRightJustify AutoSize = False Caption = 'File:' end object labelRegistryKey: TLabel Left = 2 Top = 16 Width = 82 Height = 33 Alignment = taRightJustify AutoSize = False Caption = 'Registry Key:' end object textRegy: TStaticText Left = 88 Top = 16 Width = 366 Height = 33 Anchors = [akLeft, akTop, akRight] AutoSize = False Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ShowAccelChar = False TabOrder = 0 end object textFile: TStaticText Left = 88 Top = 48 Width = 366 Height = 17 Anchors = [akLeft, akTop, akRight] AutoSize = False Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ShowAccelChar = False TabOrder = 1 end object textPath: TStaticText Left = 88 Top = 64 Width = 366 Height = 33 Anchors = [akLeft, akTop, akRight] AutoSize = False Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ShowAccelChar = False TabOrder = 2 end object buttonBrowse: TBitBtn Left = 429 Top = 104 Width = 21 Height = 21 Anchors = [akTop, akRight] Caption = '...' TabOrder = 3 OnClick = buttonBrowseClick end object listboxSearchResults: TListBox Left = 88 Top = 128 Width = 341 Height = 81 Hint = 'This is the list of search results. Choose one to take it as the' + ' new path.' Anchors = [akLeft, akTop, akRight] ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = listboxSearchResultsClick end object editPath: TComboBox Left = 88 Top = 104 Width = 342 Height = 21 Anchors = [akLeft, akTop, akRight] ItemHeight = 13 TabOrder = 5 OnChange = editPathChange end end object openDialog: TOpenDialog Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing] Left = 384 Top = 64 end end